I Last Modified Feb 11, 1999. 

I <rhia is the Code for the new Tubular 

1 Motor logic board using a triac. 



**** 

I 
I 
I 

**** 



Equate Statements 



globals on 

P01H-INIT .equ 00000100B • 

P2H-INIT_ - .equ 01100011B ' 

.equ 00000001B 

P01S.INIT .equ 00001010B 

P2sJlNIT :.equ 00000000B * 

P3S.INIT .equ OO00OO00B . ppB _. M 

P2M_EEOUT .equ 11111011B | Mask for outputting data to EEPRQM 

P2KJEEIN .equ 00000100B t Same for input 

• I : * ~ : ' 

I GLOBAL REGISTERS 

, ----- ~ ■ 

I******************************************* * 
*#** 

; LEARN EE GROUP REGISTERS FOR LOOPS ECT **##****##**♦< 

,*****»******************************************* 

****■, 



LEARNEEJ3RP .equ 

P2H.SHADOW .equ 

TEMP .equ 

HTEMPH .equ 

MTEMPL . .equ 

MTEMP .equ 

SERIAL .equ 
memory 

ADDRESS .equ 
memory • 



20H 

LEARNEE_GRP+ 0 
LEARNEE JGRP+ 2 
LEARNEEJ3RP+6 
LEARNEEJ3RP+7 
LEARNEE.GRP+8 
LEARNEE.GRP+9 



I Mask for mode of P2 
I 

I memory temp 

I memory temp 

; memory temp ' 

I aerial data to and from nonyol 



LEARNEE_GRP+1 0 J address for the serial nonvol 



temp 


*.equ 


r2 


I 




temp 


mteinph 


.equ 


r6 


I 


memory 


mtempl 


.equ 


r7 


1 


memory 


temp 


mtemp 


.equ 


r8 


i 


memory 


temp 


serial 


.equ 


r9 


i 


serial 


data 


address 


.equ 


rlO 


j 


address for 


MAIN_GRP 


• equ 


30H 









UP_LIMIT_H 
UP_LIMIT_L 
UF.LIMIT 



.equ 
. equ 
.equ 



MAIN_GRP+0 ; upper limit high byte 
MAIN_GRP+1 I upper limit low byte 
MAIN_GRP+0 I upper limit word 



4> 



D0V7N_LIMIT_H . equ 

DOWN_LIMIT_L ' . equ 

DOWN_LIMIT .equ 

POS_CNTR_H .equ 

POS_CNTRJ* .equ 

POS_CNTR .•equ 

pp JOIST .equ 

HALF_PPJDIST .equ 

POS_CNTRJTEMF_H . . equ 

FOS_ CNTRJTEMP.JL . equ 

POS.CNTIVjrEKP .equ 

UP-AND-DOWN .equ 

RBSET_FLAQ .equ 

UP^ DEBOUNCER . equ 

DOWNJDEBOUNCER . equ 
FOWER^DEBOUNCER .equ 

j r TAF_CNTR . .. .equ 

"AlllntOn .equ 

OFF.LFC .equ 

LF.TIMER * ...equ 

UP.LFC .equ 

DOWN.LFC .equ 

POWER.LFC .equ 

MOTOR.FLAQ .equ 

LEARNED * .equ 

PPOINT .equ 

RPM_DEBOUNCER_H «equ 

IR W TIMER .equ 

STOP. FLAG .equ 

START_FLAG .equ 

PP.DEBOUNCER w H . equ 
debouncer. 
PP_DEBOUNCER_L 
* debouncer . 

RPMJ3EBOUNCER_L - .equ 

UP_LIMIT_FLAG . equ 

DOWN_LIMIT_FLAG .equ 

STALL — FLAG .equ 

RPH_PULSE .equ 



MAIN.GRP+2 

MAIN_GRP+3 

MAXN_GRP+2 

MAIN.GRP+4 

MAIN_GRP+S 

MAIN_GRP+4 

MAIN.GRP+6 

MAIN_GRP+7 

HAIN_GRP+8 - 

MAIN.GRP+9 . 

MAINJIRP+B 

MAIN_GRB+10 



MAIN. 
MAIN. 
MAIN, 
MAIN. 
MAIN. 
MAIN. 
MAIN. 
MAIN. 
MAIN. 
MAIN. 
MAIN. 
MAIN. 
MAIN. 
MAIN. 
MAIN. 
MAIN. 
MAIN. 
MAIN. 
MAINJ 



.QRP+11 
.GRP+12 
.ORP+13 
.ORP+14 
.GRP+15 
J3RP+16 
.GRP+17 
.GRP+18 
.GRP+19 
.GRP+20 
.GRP+21 
.GRP+22 
.GRP+23 
.GRP+24 
.GRF+25 
.GRP+26 
.GRP+27 
.GRP+28 
.ORP+29 



l lower limit high byte 
; lower limit low byte 
i lower limit word 
l position counter high byte . 
I position counter low byte 
; position counter 
is 180. 
•80 ■ 

temp counter for FIRST. TIME 
temp counter for FIRSTJTIME 
temp counter for FIRST. TIME 
(A) tells us if up or down or 
both buttons are pushed, 
tells us if reset is pushed 
up debouncer 
down debouncer 
power debouncer 
{F4.-tap counter 

* sets up interrupts 
off power line sampler. 
Line Filter Timer 
up direction sampler 
down direction sampler 
power line sampler. 
Used for a counter/ timer . 
Tells us. if first time 
high if pass point seen 
RPM signal high debouncer. 
timer for triac enable delay 
tells main loop to stop 
flag to start power sampling 
pass point signal high 



(B) 
(C 

<*> 



!(0 
(1) 
(2 

;(3 
(4 

: (5) 
(6 
(7 

:(8 
(9 
(A) 
(B) 
(C) 



.equ MAIN_GRF+30 ; (E) pass point signal low 



MAIN.GRP+31 
MAIN_GRP+32 
MAIN.GRP+33 
MAIN.GRP+34 
MAIN_GRP+35 



;! (F) RPM signal low debouncer. 

r (0) hit up limit flag, 

j (1) hit down limit flag. 

(2) no pulses for 2 sec. 

; [2) -100ms pulse after travel. 



CHECK.GRP 


.equ 


70H 


check^sunuvalue 


• equ 


check_sum 


.equ 


rO 


rom — data 


.equ 


rl 


teet.adrjbi 


.equ 


r2 


test_adr_lo 


.equ 


r3 


test.adr 


.equ 


rr2 


STACKEND 


.equ 


0A0H 


STACKTOP 


.equ 


238 



018H 



start of the stack 
end of the stack 



csh .equ 00010000B ; chip select high for the 93c46 

C sl .equ 11101111B ; chip select low for 93c46 

clockh .equ 00001000B ; clock high for 93c46 

clockl .equ 11110111B ; cl ck low for 93c46 



-/l 2-" 



doh • equ 

doi .equ 

pomaok .equ 

csport .ecru 

dioport .equ 

clkport .equ 

piport .equ 
' MemoryTixner • equ 



00000100B ; data out' high for 9 3 <j46 
11111011B i data out low for 93cC6 _ 
01000000B i mask for the program switch 



P2 
P2 
P2 
P2 
96 



• macro 


.Dyce 


Urrll 


• AXldlA 




n 


• macro 


■ • wytB 




• byte 


OFFh 


* by t e 


OFFh 


• byte 


OFFh 


.byte 


OFFh 


• byte 


OFFh 


■ .byte 


OFFh 


• byte 


OFFh 


• byte 


OFFh 


' .byte 


OFFh 


. endm 




0 


• macro 


.byte 


OFFh 


.byte 


OFFh 


.byte 


OFFh 


• byte 


OFFh • 


• byte 


OFFh 


.byte 


OFFh 


. byte 


OFFh 


.byte 


OFFh 


• byte 


OFFh 


.byte 


OFFh 


.byte 


OFFh 


.byte 


OFFh 


.byte 


OFFh 


• byte 


OFFh 


.byte 


OFFh 


. .byte 


OFFh 


.byte 


OFFh 


.byte 


OFFh 


.byte 


OFFh 


• byte 


OFFh 


.byte 


OFFh 


.byte 


OFFh 


.byte 


OFFh 


• byte 


OFFh 


.byte 


OFFh 


.byte 


OFFh 


.byte 


OFFh 


.byte 


OFFh 


.byte 


OFFh 


.byte 


OFFh 




OPPh 



I 

chip select port 
data i/o port 
clock port 
program switch port 



WATCHDOG_GROUP * .equ OFH 
PCON .equ rO 

SMR . -equ rll 

WDTMR " " .equ rl5 

FILL 



TRAP 



.byte 


OFFh 


.byte 


OFFh 


.byte 


OFFh 


• byte 


OFFh 


.byte 


OFFh 


.byte 


OFFh 


.byte 


OFFh 


.byte 


OFFh 


.byte 


OFFh 


• byte 


OFFh 


.byte 


OFFh 


.byte OFFh 


.byte 


OFFh 


.byte 


OFFh 


.byte 


OFFh 


.byte 


OFFh 


.byte 


OFFh 


.byte 


OFFh 


.byte 


OFFh 


. en dm 




.macro 


jP 


etart 


dp 


start 


jp 


etart 


jp 


©tart 


3P 


start 


. endm 





TRAP10 .macro 
TRAP 
-TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 1 
• endm 



; * Interrupt Vector 

Table 



.org OOOOH 

. W ord TIMER1JHT IHWO. P3.2 

.word TIMER1.INT 'SSi' ".3 

.word TIMERl.BJT J*RQ2. P3.1 

. word TIMER1_INT t I*Q3 , P3 . 0 

.word TIMERO.INT I IRQ J. TO 

.word TIMER1_INT |IRQ3# 11 



/IV- 



.page 

. rg OOOCH 



I REGISTER INITILIZATION 



• 



Start : 
START: 



di jf turn off the Interrupt for lnit 

Id RP, #WATCHDOO_GROUP... 

Id WDTMR,#00000111B $. rc dog lOOmS 

clr RP I clear the register pointer, 

WDT - kick the dog 

xor * P2, I10000000B $ toggle pin 3. 



PORT INITIALIZATION 



mode 



Id P01M,#P01M_INIT 
Id P3M,#P3M_INIT 



Id P2M, #P2M_INIT 

Id P2M.S1IADOW, #P2JLINIT 

Id P0,#P01S_INIT 

Id P2,#P2S_INIT 

Id P3,#P3S_INIT ■ 



; set mode p00-p03 out p04-p07in 
; set port3 p30-p33 input analog 



r p34-p37 outputs 



. set port 2 mode 
Set readable register 
RESET all porta 



i 4 



Internal RAM Test and Reset All RAM - 



mS 



DP 
. srp 
Id 

write. again: 



STACK 
#0F0H 
rl5, »4 



WDT 

xor P2, #10000000B 
Id r!4 , #1 



; POINT to control register group 
; rl5=* pointer (minimum of RAM) 



; kick the dog 
; toggle pin 3 . 



write_againl: 

Id 
cp 



SrlS.rl* 
r!4,0rl5 



ite 1,2,4,8,10,20,40,80 



I wr 

; then compare 



dp 


ne , aystenuerror 


rl 


rl4 


dp 


ncwrite.againl 


clr 


0rl5 


inc 


r!5 


cp 


rl3, #240 


dp 


u 1 1 , wr i t e_again 



; write RAM(r5) »0 to memory 



I * Checksum Test 



r 



CHECKSUMTEST : 



srp 

Id 
Id 



flCHECi^GRP 
test_adr_hi, #0FH 
test_adr_lo, I0FFH 



maximum address=f f fh 



adcL.sum: 



WDT 
xor 
. ldc 
add 
decw 

dp 

cp 

. . dp 

syatenv_error : 



I kick the dog 
P2, ftlOOOOOOOB ; toggle pin 3. 

roncdata, Qtest_adr . /read ROM code one by one 
checksum, ron^dat a . iadd it to checksum register 
test.adr j increment ROM address 

nz,add_ sum ;addrese«0 ? 

check.sum, #check_sum_ value 

z,systenuok /check final checksum » 00 ? 



■. and PO,#11111011B 
dP eysteituerror 



.byte 
systexn_ok : 



r turn on the led 
2 5 6 - ch e c k^suiruva lue 



WDT 

xor P2, #10000000B 

Id STACKEND, fSTACKTOP 

SETSTACKLOOP : * 

. Id 6 STACKEND, #01H 

dec STACKEND 

cp STACKEND , # STACKEND 

dP nz , SETSTACKLOOP 



I kick the dog 
; toggle pin 3. 



start at the top of the stack 



I set the. value for the stack vector 

; next address 

; test for the last address 

/ loop till done 



; * STACK INITILIZATION 



STACK: 



WDT 

xor P2, #10000000B 

clr 254 

Id 255, #238 



l kick the dog 
; toggle pin 3. 

; jet the start of the stack 



r 



I * TIMER INITILT2ATI0N 
t •*++**+**+*++**+«+*+< 



TIMER: 

Id 
Id 

(TO*- las) 
Id 

. Id 
(Tl*16ms) 
Id 



PREO,#OOOl0001B 
.TO, fOFAH 

PR£1,#11111100B 
Tl, tOFFH 



i set the prescaler to 1/4 for 250Kh2 

; set the counter to count 250 to 0 

l set the prescaler to 1/63 for 16 Khz 

l set the counter to count. 256 to 0 



TMRi#00000111B Yload timers with initial values. 



j *PORT INITIALIZATION 



mode 



Id . P01M, #P01M_INIT 
Id P3M,#P3H_INIT 



Id F2M, #P2M_INIT. 

Id P2M.SHADOW, #P2*t_INIT 

Id PO,#P01S_INIT 

Id P2,tP2S_INIT 

Id P3,#P3S - INIT 



jset mode p00-p03 out p04-p07in 
l set port3 p30-p33 input analog 

I p3 4-p37 outputs 

; sec port 2 mode 

r Set readable register 

I RESET all ports 

f 

1 



; INITERRUPT INITILI2ATI0N 



SETINTERRUPTS : 



Id IPR,#00101101B 
Id IMR, #01010000B 
Id IRQ, I01000000B 



; set the priority to RPM 

I set IMR for TO interrupt only 

; set the edge clear int 



j SET SMR & PCON 



Id RP, #WATCKDOOJ3ROUP 
Id SMR, ffOOOllllOB 
Id PCON,#10010110B 



output 



t recovery s urce » P2 NOR 0:7 
; reset the peon no comparator 



A7 



■ ; STANDARD end mode 

elr RP 



* 

I VARIALBE INITILIZATION 



1 



Id UP_LIMIT_H, #01 . 

Id UP_LIMIT_L, #00 

Id DOWNJiIMIT.H, #255 * 

Id ' DOWN_LIMITJL, #00 

Id - POS..CNTRJ, #00 f 
Id POS.CNTRJi, #00 
Id POS_CNTR_TEMF_H, #00 
'Id ... FOS_On , R_TEMP_L, ♦OO - 
id Ly^TXK&R t #00 ■■■■■ V. 
Id OFF.LFC, #00 
Id UP_LFC, #00 
Id DOWN_LFC, #00 * ^ 
Id . POWEI^LFC, #00 'V'".;- 1 ' 
•Id MOTOIUFLAG^OO 
■Id LEARNED, #02 
Id PPOINT, #00 

Id IR_TIMER, #00 ' 

Id STOP.FLAG, #00 ! 

Id : START_FLAG , #00 

Id UP_JWD_P0WN, #00 *- ■ ' 

Id RESET_FLAG, #00 

Id UP__DEBOUNCER, #00 

Id DOWN_ PEBOUNCER , #00 

Id FOWERJDEBOUNCER, #00 * 

Id TAP.CNTR, #00 

Id UP_LIMIT_FLAG, #00 

Id . DOWN_LIMIT_FLAG, #00 

Id PPJDEBOUNCERJL, #00 

Id RPM_J)EBOUNCER_L, #00 

Id STALL_FLAG, #00 • * 

Id RPM_PULSE, #00 . 

Id TEMP, #00 

Id MTEMPH, #00 

Id MTEMPL, #00 

Id MTEMP, #00 -j 

Id. SERIAL. #00 

Id ADDRESS, #00 

Id PP_DIST, #180 

Id HALF_PP_DIST, #79 

Id AlllntOn, I01010000B ; just enable timer at first 

Id PP_D£BOUNCER_H, #31 

Id RPMJ3EBOUNCER_H, #11 



READ THE MEMORY 2X 



-/is?- 



ei 

WAlT_BEFORE_Jl£ADING : 

* cp LF — TIMER, #20 

jp ne, WAIT_BEFORIL.R£ADrNG 

■ WDT J kick the dog 

xor P2, #10000000B j toggle pin 3.. 

■and TMR, fllllllOlB disable timer 0 •.. 

di * 

Id ADDRESS, #00 | this address contains UPJLIMIT 

nop 

call READMEMORY # read the value 2X IX INIT 

nop 

call READMEMORY ■ f read the value * . 

' Id UP_LIMIT_J1, HTEMFH .. .-.■■* - . 

-Id DPJ,IMIT_L, MTEMPL . • 

Id • ADDRESS, #01 $ this address contains DOWN.LIMIT 

. ■ nop ■' 

call READMEMORY -mad the value 

Id DOWN_LIMIT_f!, MTEMPH I" . . 1 

, ld DOWN_LIMIT_L, MTEMPL 

Id ADDRESS , #02 * | this address contains POS.CNTR 

nop . ' ' 

call READMEMORY . $ read the value 

Id POS_CNTR_H, MTEMPH 

Id POS_CNTR_L, MTEMPL . 
. ' nop ? 

WDT I kick the dog 

xor . P2, #10000000B / toggle pin 3. 
' ' ■ nop * 

Id ADDRESS , #04 ' j this address contains LEARNED 
: • . nop . ' • ' . '• . 

call READMEMORY ; read the value 

Id RESET.FLAG, MTEMPH , I 

Id LEARNED, MTEMPL . ' 

. Id ADDRESS, #05 ; this address contains PPOINT 

nop / ..>, i • • 

call READMEMORY ; read the value 

Id PPOINT, MTEMPH . i . 

nop " * - ' ' 

Id ADDRESS, #06 . > this address contains the LIMIT. FLAG s 

. nop . : . '-\ : . . . . • • ..'•* '. V 

call READMEMORY "t : ; read the value 

Id UP.LIMITJFLAG, MTEMPH ... ■ 

Id DOWN_LIMIT_FLAG , MTEMPL ' 
nop . 

Id ADDRESS, #03 r this address contains TAP_CNTR 

nop J * 

call READMEMORY 1 read the value 

Id TAP_CNTR, MTEMPH 

clr MTEMPL 

WDT * } kick the dog " . . 

xor P2, #10000000B . , ? toggle pin 3. 

or TMR,#00000010B ' i enable timer 0 



, * . CHECK IF ANY MODE FLAGS ARE^SET 
, * ELSE* CHECK IF TAP. 
MODE. • 
j • FLAG. 



TP SO JUMP TO THAT MODE. 
FLAGS ARE Ma". J"L °'m»««r to cn SET LEARN 
^COUNTER HAS REACHED 5 TAPS. IF SO,. SET 



WDT 

xor 

cp 

jP 

cp 

dp 

cp 

Jp 

Id 
jp 



V icicle the dog ' 
P2, #10000000B I toggle pin 3. . ' 

RESET_FLAG r #B5 .1 «ee if in reset mode 

eq, PASSPOINTJIESET ' I if so, goto passpoint resec 
LEARNED, #02 ' * I tee if learn mode flag set 
ultZCHECILJOiL.TAP.HIGH t if so, go check tap count value 



TAP.CNTR, f05 
eq, NOTE.ERASE 
START.FLAO, #01 
CLEAR^UP^MID_POWN 



) see if erase was pushed 
I if so, goto clear limits 
; set flag for timer 



NOTE.ERASE : \ 

V set LEARNED byte to 01 for learn mode 

I WRITE TO MEMORY write LEARNED- 1 to E A 2 



ADDRESS/ #04 
MTEMPH, #00 
MTEMPL, #01 



. Id 
LEARNED 
Id 

byte 

. Id 
byte 

nop 

call WRITEMEMORY 
Id LEARNED, #01 
jp FIRST. TIME 



1 POINT TO ADDRESS THAT CONTAINS 

, load temp register with RESET.FLAG 

/ load temp register with LEARNED 

t 

; set LEARNED to 1. 



NOTE.RESET: 

I WRITE RESET. FLAG 



65 TO E*2 



P2, #10000000B 
ADDRESS , #04 

MTEMPH/ #85 

MTEMPL, #00 



WDT 
xor 
Id 
LEARNED 
Id 

byte 

Id. 
byte 

. hop 
"call WRITEMEMORY 
jp PASSPOINT_RESET 

CHECK_FORJT AP.HIGH : 

1 cp TAP.CNTR, #09 
jp eq, NOTE__RESET 
jp FIRST.TIME 



I kick the dog , 

j toggle pin 3. 
' | POINT TO ADDRESS THAT CONTAINS 

I load temp register with RESET.FLAG 

, load temp register with LEARNED 



see if reset mode requested 
if so, goto clear limits 



A' 



0 



CLEAJL.OP^AND.POWN : 



; wwwwwwwww www... 

* " -* ' 

I • - . MAIN ' 

^°THIS PORTION OF THE CODE JUST EXECUTES NORMAL OPERATION OF THE LOGIC 

BOARD. * ' ' 

I MORMAt OPERATION IB TtXRNXNO ON THE TRIAC UNTIL EITHER THE OP OR pOWN 

LIMIT IS 

> REACHED OR POWER HAS BEEN RELEASED. ;\;* 



■ PASSPOINTJIESETi . •:"■*_." *'/. -■ ' ) ' , *' ■ ' ' ', 

i ♦♦*###w«*##* **************** 

I THIS PORTION OF THE CODE RESETS THE PASS POINT GEARS TO THERE INITIAL 
/' SETTING. IN ORDER TO BE IN THIS ROUTINE, THE POWER BUTTON MUST HAVE . 
I BEEN PRESSED FOR LESS THAN 500 ma AT LEAST 9 CONSECUTIVE TIMES. . 
I AS A RESULT, THE RESET FLAG IS SET. 

I AT THE CONCLUSION OF THIS ROUTINE, THE FLAG IS ERASED . . 



FIRST_TIME : 



> THIS PORTION OF THE CODE LEARNS THE LIMIT OPPOSITE OF THE DIRECTION 
) OF TRAVEL. IN ORDER TO BE IN THIS ROUTINE , THE POWER BUTTON MUST HAVE 
; BEEN PRESSED FOR LESS THAN 500 ma BETWEEN S-8 CONSECUTIVE TIMES. 
/ AS A RESULT, THE LEARNED FLAG IS SET* • 
j AT THE CONCLUSION OF THIS ROUTINE, THE FLAG IS ERASED. 



; THIS IS THE TIMERO (HEARTBEAT) INTERRUPT ROUTINE 

I THIS ROUTINE IS ENTERED EVERY 1ms. 



TIMERO_INT: 1 

Id IMR, AlllntOn i turn on all the Interrupts 

CHECK__START_FLAG : 



- /HI 



ino DELAY .TIMER ' * 

cp START_FLAQ, #01 * 

jp n , TIMERO .RETURN I 

tm P2. tOOlOOOOOB ; I 

jp Z, INC_OFF_LFC ; 

inc POWERJ*FC • ; * 

Clr OFFJiFC 



increment line filter timer. • 

ready to check inputs? 

If not, leave. 

is POWER (P25) high? 

If not, don't sample up/dn pins 

else, increment TOTALJ*FC. 



TESTJ40T0RJ 

*' cp 

. jP 
. tm 

' jP ■' 
<■ v Ino 
jp 



MOTOR^FLAG , #0AAH 
•q, TIMERO.EETURN 
M, tOOOOOOlOB 
X, TESTJDOWN^LFC 
UP.LFC 

TEST_POWERJ,FC 



TSSTJOWMJ-FCi 



tm 

'jP 

• ; inc 

^P * 



P2, tOOOOOOOlB 
Z, TEST.POWERJtfC 
DOWN_LFC 
TEST_POWERJLFC 



XNC_OFF_J,FCi 

inc 
clr 
clr 
clr 

: * cp 

r" , jP 

; jp 



OFF_LFC . " 

UP_LFC 

DOWN_LFC 

POWER w LFC 

OFFJiFC, #41 

no, TIMERO.RETURN 

CHECK^FOR.POWER 



TEST.POWERwLFC : 



cp : • POWER.LFC, #04 

. jp ne, TIMER0_JlETURN 

clr OFF.LFC : 

cp POWER w DEBOUNCER, #22 

jp . eq, CHEC*_UPJ'FC 

inc POWERJDEBOUNCER 

Cp POWER_DEBOUNCER, #03 

jp ne, CHECK^UPJ.FC 

'inc TAPjCNTR 

jp .CHECKJIPJiFC 



is motor on? . 
if so, junrp. " 
is up (P21) input high? 
if not, don't inc UP.LFC. 
else, increment DOWN_£FC. 



r is down (P20) input high? 

I if not, don't inc UP_LFC. 

I I increment DOWM.LFC 



increment OFF COUNTER 
clear up counter 
clear down counter 
clear power counter 
is counter at 41ms? 
if so, then jump. 



I is POWERWLFC more than 04? 
i! if so, leave interrupt 

» - * • . ■ * 

I is DB already at 22? 
I if so, don't increment 
I- else, increment POWER DB 
I is UP DB at 3? 
t if not, jump. 

I else, increment TAP-COUNTER 
I and jump • 



CHECXJP.J*FC: 



cp UPJCJC, #04 I 

jp ult, CHECKJXJWNJiFC J 

cp UPJJEBOUNCER, #255 I 

jp eq, 9ET_UP_*NDJX>WN_FIiAa I 
Clr ■ DOWMJ)EBOUNCER I 

inc UPJDEBOUNCER I 

cp UPJEBOUNCER, #22 1 

jp ne, SET.UP^ANDJOWNJFIAQ I 

Id UP J3EBOUNCER , #255 I 

clr TAP.CNTR I 

jp *SET_UP w AND_POWN_FIAG 



is UP tFC at 3? 
if not, jump. 
Is UP DB maxed out. 

if so, jump, 
clear debouncers 
increment db 

if at 22, then set high. 

else, skip. 
Id DB with 255. 
clear TAP_COUNTER 



-An- 



• 



CHEC^JXJWNJLFC t 



cp - DOWN_I,FC, #04 . f 

jp ult, SET_UP^ANDJDOWN_FI*0 

*cp DOWNJDEBOUNCER, #255 f 

■ jp SET_OT_*NDJX)WN_FLAG | 

Clr '„ OP J)EBOUNCER ; , |j 

inc • DOWN.DEBOUNCER • . . ' I \ 

cp / DOWNJDEBOUNCER, #22 ' | 

jp no, SET.OT^ANDJXWNJTLAO f 

Id DOWNJDEBOUNCER, . #255; • f 

• Clr TAF_CNTR * . ' $ 

jp ; . sET_up -- wn}jDowOiAa . 



is DOWKJ#FC at 3?. 
I if not, jump, 
is DOWN DB maxed out* * 

If so, jump, 
clear debouncera 
increment db 
if at 22, than sat high, 
alae, skip. Y 
Id DB with 255. 
clear TAPjCOUNTER. - 



CHECl^FOR.POWER - 



'clr :OFPJ.FC * \ 

clr UPJDEBOUNCER " ".*• ' - ; 

iClr DOWNJDEBOUNCER ! . 

.or PO, #00001000B 

cp .-" POWER^DEBOUNCER #03 

jP uge, CLEAR JMNE JOBS 

Clr ' DODJPd r\tro r\rmr* *>n 

jp 



*b ~" 9 • | ftn 

POWER^DEBODNCER 
TIMERO^ RETURN 



CLEARJLINEJDBS: • . • 

. : clr . POWERJ)EBOUNCER 
; :ld STOP^FLAG, #01 . 
and TMR, #11111101B 

f WRITE TO MEMORY — TAP_CNTR 

ADDRESS, #03 V ' 



I reset, off counter 
I clear DB 1 a , x < 

.v • • : v .v * 

7 turn off IR's 
I is DB ar eady zerc? 
r if so, don't write 
. j ( clear power dabouncer 

is - . : * 



ll clear power debouncer 
I. set stop flag. 
; disable tiaar 0 



MTEMPH r TAP_CNTR | 
MTEMPL, #00 



Id 

TAP_CNTR 
Id 
Id 

nop 

■■: call WRITEMEMORY 
. or TMR,#00000010B 
\ Jp TIMER0 JIETURN / • 

SET_UP_JlND_DOWN_FLAG : 

CP DOWNJDEBOUNCER, #255 
jP -.eq; SET-DOWN. FLAG 

cp . UPJEBOUNCER, #255 
jp ne, TIMER0 w RETURN 

- Id . UP^AND.DOWN, #01 • 
jp TIMEROJRETURN .. 

SET_pOWN_FLAG: 

Id UP_JVND_DOWN, #02. 

.TIMEROJRETURN: 



; I POINT TO ADDRESS THAT CONTAINS 

load temp register with TAP.CNTR byte 
I load temp register with 00. 



; enable tiaar 0 



I is DOWN DB high? V 

; if so, set down flag 

, is UP DB high? 

I if not, leave interrupt 

I. else, set direction for up 

I leava interrupt. 



; else, set. direction for down 



iret 



A 12- 



